home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / bldpas.zip / RAPSVARS.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-30  |  3KB  |  104 lines
  1. UNIT RAPSVARS;
  2. INTERFACE
  3. Const Apos = '''';
  4.   UpLeft = #201;
  5.   UpRight = #187;
  6.   LoLeft =  #200;
  7.   LoRight = #188;
  8.   HWall = #205;
  9.   VWall = #186;
  10. Type   Buffer = array[1..25,1..80,1..2] Of Char;
  11.        ScreenPointer = ^Buffer;
  12.        Filenam = Record
  13.                  Filenm : String[34];
  14.        End;
  15.  
  16. Fieldrecord = Record
  17.        Fldln    : Integer;
  18.        Fldpos   : Integer;
  19.        Fldlen   : Integer;
  20.        Fldtyp   : Char;
  21.        Flddecn  : Integer;
  22.        Fldints  : Char;
  23.        Fldcolr  : Char;
  24.        FldBkColr: Char;
  25.        Fldattr  : Char;
  26.        FldKey   : Char;
  27.      End;
  28. VAR
  29.        RecordNumber : LongInt;
  30.        Size         : Integer;
  31.        Dups         : Boolean;
  32.        Global_Register_Val   : Char;
  33.        Error    : Integer;
  34.        Filevar  : Text;
  35.        Filevar1 : Text;
  36.        CH     : Char;
  37.        Xpos   : Integer;
  38.        Ypos   : Integer;
  39.        X, Y   : Integer;
  40.        X1, X2 : Integer;
  41.        Y1, Y2 : Integer;
  42.        lnndx  : Integer;
  43.        Posndx : Integer;
  44.        Fldseq : Integer;
  45.        Hldfldseq   : Integer;
  46.        Maxfld      : Integer;
  47.        Frstdatafld : Integer;
  48.        Lastdatafld : Integer;
  49.        Datalen  : Integer;
  50.        MaxKeylen   : Integer;
  51.        Keychar  : char;
  52.        Function_Key : Char;
  53.        Function_Id  : Char;
  54.        Scrnln   : Array [1..200,1..80] Of Char;
  55.        Scrnptr  : ScreenPointer;
  56.        Workline : Array[1..80] Of Char;
  57.        Clearscrn : Boolean;
  58.        Crtmode : Char;
  59.        Continue : Boolean;
  60.        FKey     : Boolean;
  61.        Mapln    : Array [1..200] of Integer;
  62.        Mappos   : Array [1..200] of Integer;
  63.        Maplen   : Array [1..200] of Integer;
  64.        Maptyp   : Array [1..200] Of Char;
  65.        Mapdecn  : Array [1..200] Of Integer;
  66.        Mapints  : Array [1..200] Of Char;
  67.        Mapcolr  : Array [1..200] Of Char;
  68.        Mapattr  : Array [1..200] Of Char;
  69.        MapKey   : Array [1..200] Of Char;
  70.        Filename : Filenam;
  71.        Mapname  : Filenam;
  72.        Applname : Filenam;
  73.        Datafld  : Boolean;
  74.        Fldrec   : Array [1..250] Of Fieldrecord;
  75.        MapTextColor : Byte;
  76.        Mapbkcolor   : Byte;
  77.        MapBoxColor  : Byte;
  78.        DfltTextColor: Char;
  79.        DfltBkColor  : Char;
  80.        DfltBoxColor : Char;
  81.        Goodline     : Boolean;
  82.        Hldchar      : Char;
  83.        CompChar     : Char;
  84.        Skip_Prev    : Boolean;
  85.        ScrnPrompt   : String[80];
  86.        Errorfld     : Byte;
  87.        CondCode     : Integer;
  88.        OrigTextMode : Word;
  89.        GraphDriver  : Integer;
  90.        GraphMode    : Integer;
  91.        ProgName     : String;
  92.        CmdLine      : String;
  93.        Scrnln1      : String[80];
  94.        ScreenTime   : String[11];
  95.        ScreenDate   : String[10];
  96.        Year, Month, Day, Dayofweek  : word;
  97.        Hour, Minute, Second, sec100 : Word;
  98.        TChr, Tchr1, Tchr2, Tchr3, Tchr4, Tchr5, Tchr6, Tchr7, Tchr8, Tchr9,
  99.        Tchr10       : String;
  100.        TNum, TNum1, TNum2, TNum3, TNum4, TNum5, TNum6, TNum7, TNum8, TNum9,
  101.        TNum10       : LongInt;
  102. Implementation
  103. END.
  104.